home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / DIFF.ELC < prev    next >
Text File  |  1993-03-28  |  5KB  |  44 lines
  1. ;;; compiled by jwz@thalidomide on Wed Sep  2 01:00:36 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/diff.el
  3. ;;; emacs version 19.2.19 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar diff-search-pattern "^\\([0-9]\\|\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\)" "\
  14. Regular expression that delineates difference regions in diffs.")
  15. (byte-code "└┴!¼é┬    ¼▒├ ─    !ê┼    ╞╟#ê┼    ╚╔#ê┼    ╩╦#ê┼    ╠═#ê┼    ╬╧#ê┼    ╨╤#ê┼    ╥╙#ê┬ç" [boundp diff-mode-map nil make-keymap suppress-keymap define-key "?" describe-mode "." diff-beginning-of-diff " " scroll-up "" scroll-down "n" diff-next-difference "p" diff-previous-difference "j" diff-show-difference] 4)
  16. (fset 'diff #[(old new &optional switches) "└    «ü\n!├─#ê╟!╟!╚    ╩É╦ !êè qê═ ê╬╧╨╚╤╚╥    D\"&)æê╩qêebê    ½ô    @╙ÿ½ç╘yêe`|ê    Aë¼m)╒ ê╫ÿ½ä├╪!ç`┘yê┌╚▄#½à▌öb¬ü`}ê▐ëç" [diff-fix-switches switches diff-switches message "Comparing files %s %s..." new old expand-file-name nil buffer-read-only "*Diff Output*" buffer-disable-undo standard-output erase-buffer apply call-process "diff" t append "-c" 2 diff-mode diff-total-differences "0" "There are no differences." 1 re-search-forward diff-search-pattern move 0 "1" diff-current-difference] 12 "\
  17. Find and display the differences between OLD and NEW files.
  18. Interactively you are prompted with the current buffer's file name for NEW
  19. and what appears to be its backup for OLD." (byte-code "└┴┬├─ $ç" [diff-read-args "Diff original file (%s) " "Diff new file (%s) " "Switches for diff (%s) " buffer-file-name] 5)])
  20. (byte-code "└┴Mê┬├Mê─┼Mç" [diff-read-args #[(oldprompt newprompt switchprompt &optional file-for-backup) "└ë ½╠ ë½ô─    !½Ä┼╞╚    !\"└    ╔$¬è┼╞╩\"└ë╔$╦    !ë½ô─\n!½Ä┼╞ ╚\n!\"└\n╔$¬î┼╞ ╩\"═    !└╔$¬Ü┼╞ ╩\"└ë╔$┼╞╚\n!\"└═\n!╔$\n    ╬!E*ç" [nil newf oldf file-for-backup file-exists-p read-file-name format newprompt file-name-nondirectory t "" file-newest-backup oldprompt file-name-directory diff-read-switches switchprompt] 6] diff-read-switches #[(switchprompt) "¡æ┴┬ ─#╞╟╚    \"\"!)ç" [current-prefix-arg mapconcat identity diff-switches " " default diff-fix-switches read-string format switchprompt] 5] diff-fix-switches #[(switch-spec) ";½¥┴┬┼╞ #½Ä╟ö╟òO B┬ò¬k ƒ*çç" [switch-spec nil 0 start result string-match "\\(\\S-+\\)" 1] 4]] 2)
  21. (fset 'diff-mode #[nil "└    !ê┬─╞╚    ╩ ╠═!ê╠╬!╧╨ !Lç" [use-local-map diff-mode-map t buffer-read-only diff-mode major-mode "Diff" mode-name "--- " mode-line-modified (" " diff-current-difference "/" diff-total-differences) mode-line-process make-local-variable diff-current-difference diff-total-differences int-to-string diff-count-differences] 3 "\
  22. Diff Mode is used by \\[diff] for perusing the output from the diff program.
  23. All normal editing commands are turned off.  Instead, these are available:
  24. \\<diff-mode-map>
  25. \\[diff-beginning-of-diff]    Move point to start of this difference.
  26. \\[scroll-up]    Scroll to next screen of this difference.
  27. \\[scroll-down]    Scroll to previous screen of this difference.
  28. \\[diff-next-difference]    Move to Next Difference.
  29. \\[diff-previous-difference]    Move to Previous Difference.
  30. \\[diff-show-difference]    Jump to difference specified by numeric position.
  31. " nil])
  32. (fset 'diff-next-difference #[(n) "┴W½à┬[!ç┴U?¡╚ebê├yê~ê─╞╟$½Ñ┴öb├yê─╞╟#½ä┴öbê`}ê╔╩ !\\! )¬æ╠╞\"ê`d}ê═╬!ê ebç" [n 0 diff-previous-difference 1 re-search-forward diff-search-pattern nil move start int-to-string string-to-int diff-current-difference re-search-backward message "No following differences." diff-total-differences] 5 "\
  33. In diff-mode go the the beginning of the next difference as delimited
  34. by diff-search-pattern." "p"])
  35. (fset 'diff-previous-difference #[(n) "┴W½à┬[!ç┴U?¡╡ebê~ê├ ┼╞$½î╟╚    !Z!    ¬ç╩╦!ê╠    `═yê╬ ┼╞#½à┴öb¬ü`}êebç" [n 0 diff-next-difference re-search-backward diff-search-pattern nil move int-to-string string-to-int diff-current-difference message "No previous differences." "1" 1 re-search-forward] 5 "\
  36. In diff-mode go the the beginning of the previous difference as delimited
  37. by diff-search-pattern." "p"])
  38. (fset 'diff-show-difference #[(n) "└    ! \nU¼è ─U¼à┼ !¼äeb¬û \nW½ç╞\n Z!¬è \nV¡à╟ \nZ!)ç" [string-to-int diff-current-difference cur n 0 natnump diff-previous-difference diff-next-difference] 3 "\
  39. Show difference number N (prefix argument)." "p"])
  40. (fset 'diff-beginning-of-diff #[nil "ebç" [] 1 "\
  41. Goto beginning of current difference." nil])
  42. (fset 'diff-count-differences #[nil "└┴!êèî~êebê┬─╞╟#½à T¬t└╚ \"ê +ç" [message "Counting differences..." 0 cnt re-search-forward diff-search-pattern nil t "Counting differences...done (%d)"] 4 "\
  43. Count number of differences in the current buffer."])
  44.